﻿
Imports TodoMicroSolutionPackV1.dal.dto.ubicacion
Imports NHibernate
Imports NHibernate.Criterion

Namespace dal.dao.ubicacion
    Public Class localidadDAO
        Inherits GenericNHibernateDAO(Of localidad, Integer)

        Public Function getLocalidadesPorProvincia(ByRef provincia As provincia) As IList(Of localidad)
            Dim criteria As ICriteria = session.CreateCriteria(Of localidad)()
            criteria.CreateCriteria("departamento").Add(Expression.Eq("provincia", provincia))

            Return criteria.List(Of localidad)()
        End Function
        Public Sub New(ByRef session As ISession)
            MyBase.New(session)
        End Sub
    End Class
End Namespace
